Những câu hỏi liên quan
nguyễn an phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 22:50

uses crt;

var i,n,m,k,d:integer;

{---------------chuong-trinh-con-tim-ucln--------------------}

function ucln(x,y:integer):integer;

var t:integer;

begin

while y<>0 do

begin

t:=x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

{------------chuong-trinh-con-kiem-tra-so-nguyen-to-------------------}

function nt(b:longint):boolean;

var j:longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

{---------------chuong-trinh-chinh---------------------}

begin

clrscr;

write('Nhap N: '); readln(N);

write('Nhap M: '); readln(M);

d:=0;

k:=ucln(N,M);

for i:=1 to k do

if nt(i) then d:=d+1;

if d>0 then writeln('2 so nay tuong duong voi nhau')

else writeln('2 so nay khong tuong duong voi nhau');

readln;

end.

Bình luận (1)
nguyễn an phát
3 tháng 6 2021 lúc 9:22

uses crt;

var i,n,m:integer;

a,b:array[1..100]of integer;

function nt(n:integer):boolean;

begin

  if n<2 then nt:=false;

  for i:=2 to n div 2 do

  if n mod i=0 then nt:=false;

end;

function nttd(n,m:integer):boolean;

var i,j,k,d,dem,s:integer;

a,b:array[1..100]of integer;

begin

  nttd:=false;

  d:=0;

  for j:=1 to n do

  if (nt(j))and(n mod j=0) then

  begin

    inc(d);

    a[d]:=j;

  end;

  dem:=0;

  for k:=1 to n do

  if (nt(k))and(m mod k=0) then

  begin

    inc(dem);

    b[dem]:=k;

  end;

  s:=0;

  if d=dem then for i:=1 to d do if a[i]=b[i] then

  inc(s);

  if s=d then nttd:=true else nttd:=false;

end;

BEGIN

  clrscr;

  write('nhap n,m:');readln(n,m);

  if nttd(n,m) then writeln(n,' va ',m,' la nguyen to tuong duong')

  else writeln(n,' va ',m,' khong phai la nguyen to tuong duong');

  readln;

END.

Bình luận (0)
nguyễn an phát
3 tháng 6 2021 lúc 9:24

uses crt;

Var M,N,d,i,luun,luum:integer;

Function USCLN(m,n: integer): integer;

Var r: integer;

Begin

luun:=n;luum:=m;

While n<>0 do

begin

r:=m mod n; m:=n; n:=r;

end;

USCLN:=m;

End;

function nttd:integer;

begin

  d:=USCLN(M,N); i:=2;

  While d<>1 do

  begin

    If d mod i =0 then

    begin

      While d mod i=0 do d:=d div i;

      While M mod i=0 do M:=M div i;

      While N mod i=0 do N:=N div i;

    end;

    Inc(i);

  end;

  If M*N=1 then Write(luum,'  va ', luun,' la so nguyen to tuong duong.')

  Else Write(luum ,' va  ',luun ,' khong phai la so nguyen to tuong duong.');

end;

BEGIN

  clrscr;

  Write('Nhap M,N:'); Readln(M,N);

  nttd;

  Readln;

END.

Bình luận (0)
n123
Xem chi tiết
Tùng Trương Quang
27 tháng 12 2021 lúc 18:06

Tớ không hiểu.

Số may mắn là số gì?

6 = 3 + 2 + 1 hay sao?

Bình luận (3)
Sách Giáo Khoa
Xem chi tiết
Cầm Đức Anh
17 tháng 3 2018 lúc 22:56

Thính giác : Lắng nghe tiếng trống trường , tín hiệu tàu hỏa đi qua , tín hiệu báo thức ...

Thị giác : Nhìn thấy tín hiệu đèn báo giao thông , màu sắc của loài hoa , hình ảnh của một người hay một địa danh nào đó , các hướng dẫn chỉ dẫn sử dụng các thiết bị ...

Khứu giác : dùng để ngửi xem thức ăn có mùi gì, nước hoa dùng hãng nào , nước xả vãi có mùi thơm không ...

Vị giác : nếm xem thức ăn đã ngon chưa để người nấu có thể thêm gia vị ...

Xúc giác : nhấc 1 vật để xem vật đó nặng khoảng bao nhiêu, hình dạng như thế nào, nóng hay lạnh, nhẵn nhụi hay sần sùi



Bình luận (0)
♥๖ۣۜFire♦๖ۣۜStar♥
Xem chi tiết
Legend
20 tháng 3 2019 lúc 19:33

9 điểm

Bình luận (0)
nguyen manh hung
20 tháng 3 2019 lúc 19:34

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaardgffgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfg

fgfgfgfgfgfgfgfgfgfg

fg

fg

fg

fg

fgfgfgfgfgfgfgfgfgfgfgfgfffgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfggfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfggfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfg

ffgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfggfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfg

fgfgfgfgfgfgffgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgffgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfggfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfggfgfgfgfgfgfgfgfgfgfg

gggggggggggggggggfggggggggggggggggggfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfgfg

fgfg

Bình luận (0)
Nguyễn Duy Anh
20 tháng 3 2019 lúc 19:34

Đề gì mà dài thòn lòn như cái cầu Sài Gòn vậy.

Chắc viết mỏi tay lắm ha

Bình luận (0)
Long ca ca
Xem chi tiết
Long ca ca
Xem chi tiết
Phùng Công Anh
29 tháng 6 2023 lúc 22:41

program tim_nguon_nho_nhat;

const
  MAX_NUMBER = 10000;

var
  M, nguon_nho_nhat: Integer;

function TinhTongChuSo(num: Integer): Integer;
var
  sumOfDigits: Integer;
begin
  sumOfDigits := 0;
  while num > 0 do
  begin
    sumOfDigits := sumOfDigits + (num mod 10);
    num := num div 10;
  end;
  TinhTongChuSo := sumOfDigits;
end;

function TimNguonNhoNhat(M: Integer): Integer;
var
  N, M_temp, M_digits, nguon_nho_nhat: Integer;
begin
  M_temp := M;
  nguon_nho_nhat := MAX_NUMBER;
  for N := 1 to M_temp do
  begin
    M_digits := TinhTongChuSo(N) + N;
    if M_digits = M_temp then
    begin
      if N < nguon_nho_nhat then
        nguon_nho_nhat := N;
    end;
  end;
  if nguon_nho_nhat = MAX_NUMBER then
    TimNguonNhoNhat := 0
  else
    TimNguonNhoNhat := nguon_nho_nhat;
end;

begin
  Readln(M);
  nguon_nho_nhat := TimNguonNhoNhat(M);
  if nguon_nho_nhat = 0 then
    Writeln('0')
  else
    Writeln('Nguon nho nhat cua ', M, ' la ', nguon_nho_nhat);
end.

 

Bình luận (0)
Phạm Quang Luân
Xem chi tiết
Akari Karata
Xem chi tiết
Huỳnh Quang Sang
18 tháng 3 2019 lúc 21:13

c,

Giống nhau: cùng được xây dựng dựa trên cơ sở liên tưởng về mối quan hệ giữa các sự vật, hiện tượng.

Khác nhau:

Hoán dụ: Các sự vật hiện tượng có quan hệ gần gũi với nhau.Ẩn dụ: các sự vật, hiện tượng phải có những nét tương đồng với nhau.

Ví dụ:

Hoán dụ:  "Áo chàm đưa buổi phân ly"

=> Người Việt Bắc (A) thường mặc áo chàm (B). Vì thế khi Áo chàm (B) xuất hiện ta liên tưởng tới người Việt Bắc (A).

Ẩn dụ:

"Ngày ngày mặt trời đi qua trên lăng,

Thấy một mặt trời trong lăng rất đỏ."

(Viễn Phương)

=> Tác giả Viễn Phương sử dụng biện pháp tu từ ẩn dụ. Dấu hiệu để nhận biết điều này đó là sự tương đồng về phẩm chất giữa hình tượng mặt trời và Hồ Chí Minh (sự vĩ đại, cao cả và trường tồn).

Bình luận (0)

a) -Giống nhau: đều dựa trên cơ sở liên tưởng những nét tương đồng giữa các sự vật, sự việc khác nhau. 

-Khác nhau:

   + So sánh thường cần đến từ so sánh hoặc dấu hiệu nhận biết phân biệt giữa các vế so sánh và vế được so sánh ( vd như dấu gạch ngang, dấu hai chấm...) So sánh có thể ngang bằng hoặc không ngang bằng.

   + Ẩn dụ không cần từ hay dấu câu phân biệt giữa các sự vật sự việc được nêu ra. Do vậy, ẩn dụ còn được gọi là so sánh ngầm. Phép ẩn dụ giữa các sự vật sự việc thường mang ý nghĩa ngang bằng, tương đương.

Bình luận (0)

Giữa ẩn dụ và hoán dụ :
- Giống nhau : Đều gọi tên sự vật hiện tượng khái niệm này bằng tên sự vật hiện tượng khái niệm khác.
- Khác nhau : 
+ Giữa 2 sự vật, hiện tượng trong phép ẩn dụ có quan hệ tương đồng.
Cụ thể là : tương đồng về hình thức, về cách thức, phẩm chất, về chuyển đổi cảm giác.
+ Giữa 2 sự vật, hiện tượng trong phép hoán dụ có quan hệ gần gũi (tương cận)
Cụ thể là : Lấy một bộ phận để chỉ toàn thể, lấy vật chứa đựng để gọi vật bị chứa đựng, lấy dấu hiệu của sự vật để gọi sự vật, lấy cái cụ thể để gọi cái trừu tượng.

Bình luận (0)
Dang Trung
Xem chi tiết